home *** CD-ROM | disk | FTP | other *** search
/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_xemacs.idb / usr / freeware / lib / xemacs-20.4 / lisp / mule / mule-cne.el.z / mule-cne.el
Encoding:
Text File  |  1998-05-21  |  3.0 KB  |  89 lines
  1. ;;; mule-cne.el --- interface between input methods Canna and EGG.
  2.  
  3. ;; This file is part of XEmacs.
  4.  
  5. ;; XEmacs is free software; you can redistribute it and/or modify it
  6. ;; under the terms of the GNU General Public License as published by
  7. ;; the Free Software Foundation; either version 2, or (at your option)
  8. ;; any later version.
  9.  
  10. ;; XEmacs is distributed in the hope that it will be useful, but
  11. ;; WITHOUT ANY WARRANTY; without even the implied warranty of
  12. ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  13. ;; General Public License for more details.
  14.  
  15. ;; You should have received a copy of the GNU General Public License
  16. ;; along with XEmacs; see the file COPYING.  If not, write to the 
  17. ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  18. ;; Boston, MA 02111-1307, USA.
  19. ;; Canna and Egg on Nemacs/Mule is distributed in the forms of
  20. ;; patches to Nemacs under the terms of the GNU EMACS GENERAL
  21. ;; PUBLIC LICENSE which is distributed along with GNU Emacs by
  22. ;; the Free Software Foundation.
  23.  
  24. ;; Written by Akira Kon, NEC Corporation.
  25. ;; E-Mail:  kon@d1.bs2.mt.nec.co.jp.
  26.  
  27. ;; -*-mode: emacs-lisp-*-
  28.  
  29. ;; !Id: can-n-egg.el,v 1.7 1994/03/16 07:24:15 kon Exp !
  30.  
  31. ;; $B$3$N5!G=$r;H$&$K$O!"(B
  32. ;; M-x load $B$3$N%U%!%$%k(B
  33. ;; M-x can-n-egg
  34. ;; $B$r<B9T$7$^$9!#(B
  35.  
  36. (require 'canna)
  37.  
  38. (if (featurep 'mule)
  39.     (require 'egg)
  40.   (require 'wnn-egg))
  41.  
  42. (provide 'can-n-egg)
  43.  
  44. ;;; $B$3$N4X?t$G$O!"8=:_$N%b!<%I$,!X$+$s$J!Y$NF|K\8lF~NO%b!<%I$+(B
  45. ;;; $B$I$&$+$r%A%'%C%/$7$F!"!X$+$s$J!Y$NF|K\8lF~NO%b!<%I$G$J$$$N(B
  46. ;;; $B$G$"$l$P!"!X$?$^$4!Y$N(B egg-self-insert-command $B$r8F$V!#!X$+(B
  47. ;;; $B$s$J!Y$NF|K\8lF~NO%b!<%I$G$"$l$P!"!X$+$s$J!Y$N(B 
  48. ;;; canna-self-insert-command $B$r8F$V!#(B
  49.  
  50. (defvar canna-exec-hook nil)
  51. (defvar canna-toggle-key nil)
  52. (defvar egg-toggle-key nil)
  53.  
  54. (defun can-n-egg-self-insert-command (arg)
  55.   "Self insert pressed key and use it to assemble Romaji character."
  56.   (interactive "p")
  57.   (if canna:*japanese-mode*
  58.       (canna-self-insert-command arg)
  59.     (egg-self-insert-command arg)))
  60.  
  61. ;; $B$+$s$J$@$C$?$i:FJQ49!"$?$^$4$@$C$?$iIaDL$N%-!<F~NO!#(B
  62. ;;   by rtakigaw@jp.oracle.com, 1994.3.16
  63. (defun can-n-egg-henkan-region-or-self-insert (arg)
  64.   "Do Canna Kana-to-Kanji re-conversion in region or Egg self insert."
  65.   (interactive "p")
  66.   (if canna:*japanese-mode*
  67.       (canna-henkan-region-or-self-insert arg)
  68.     (egg-self-insert-command arg)))
  69.  
  70. (defun can-n-egg ()
  71.   "Start to use both Canna and Egg."
  72.   (interactive)
  73.   (if canna-exec-hook
  74.       (run-hooks canna-exec-hook)
  75.     (canna))
  76.   (let ((ch 32))
  77.     (while (< ch 127)
  78.       (define-key global-map (make-string 1 ch) 'can-n-egg-self-insert-command)
  79.       (setq ch (1+ ch)) ))
  80.   (if canna-use-space-key-as-henkan-region
  81.       (progn
  82.     (global-set-key "\C-@" 'canna-set-mark-command)
  83.     (global-set-key " " 'can-n-egg-henkan-region-or-self-insert)))
  84.   (global-set-key
  85.    (if canna-toggle-key canna-toggle-key "\C-o") 'canna-toggle-japanese-mode)
  86.   (global-set-key
  87.    (if egg-toggle-key egg-toggle-key "\C-\\") 'toggle-egg-mode) )
  88.  
  89.